object fError: TfError Left = 330 Top = 108 BorderStyle = bsDialog ClientHeight = 302 ClientWidth = 490 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object lblLostInfo: TLabel Left = 11 Top = 96 Width = 48 Height = 13 Caption = 'lblLostInfo' end object lblTell: TLabel Left = 8 Top = 152 Width = 35 Height = 13 Caption = 'lblTell' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object lblReport: TLabel Left = 11 Top = 176 Width = 42 Height = 13 Caption = 'lblReport' end object lblTreat: TLabel Left = 11 Top = 190 Width = 35 Height = 13 Caption = 'lblTreat' end object lblData: TLabel Left = 11 Top = 204 Width = 33 Height = 13 Caption = 'lblData' end object lblDataClick: TLabel Left = 88 Top = 204 Width = 60 Height = 13 Cursor = crHandPoint Caption = 'LblDataClick' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsUnderline] ParentFont = False OnClick = lblDataClickClick end object lblContact: TLabel Left = 11 Top = 224 Width = 47 Height = 13 Caption = 'lblContact' end object lblChoose: TLabel Left = 11 Top = 238 Width = 46 Height = 13 Caption = 'lblChoose' end object btnSend: TButton Left = 284 Top = 269 Width = 106 Height = 25 Caption = 'btnSend' ModalResult = 6 TabOrder = 0 OnClick = btnSendClick end object btnNoSend: TButton Left = 399 Top = 269 Width = 84 Height = 25 Caption = 'btnNoSend' ModalResult = 7 TabOrder = 1 end object Panel: TPanel Left = 0 Top = 0 Width = 490 Height = 65 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite TabOrder = 7 object lblEncounter: TLabel Left = 29 Top = 12 Width = 72 Height = 13 Caption = 'lblEncounter' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Image1: TImage Left = 440 Top = 16 Width = 32 Height = 32 AutoSize = True Picture.Data = {} end object lblSorry: TLabel Left = 29 Top = 29 Width = 43 Height = 13 Caption = 'lblSorry' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end object rbAnonymous: TRadioButton Left = 8 Top = 256 Width = 113 Height = 17 Caption = 'rbAnonymous' Checked = True TabOrder = 4 TabStop = True OnClick = rbAnonymousClick end object rbEMail: TRadioButton Left = 8 Top = 274 Width = 97 Height = 17 Caption = 'rbEmail' TabOrder = 5 OnClick = rbEMailClick end object cbxClose: TCheckBox Left = 8 Top = 120 Width = 208 Height = 17 Caption = 'cbxClose' Checked = True State = cbChecked TabOrder = 2 end object edEMail: TComboBox Left = 112 Top = 272 Width = 161 Height = 21 Enabled = False ItemHeight = 0 TabOrder = 6 end object chkRestart: TCheckBox Left = 225 Top = 120 Width = 241 Height = 17 Caption = 'chkRestart' TabOrder = 3 end end